00100		TITLE XYXY
00200		ENTRY GETP
00300	GETP:	0
00400		HRRZ 6,1(16)
00500		SOJ 6,
00600		HRRZ 1,0(16)
00700		AOJ 1,
00800		MOVE 2,@1
00900		AOJ 1,
01000		ADD 2,1
01100	ADON:	AOJ 1,
01200		CAMLE 1,2
01300		JRST STIK
01400		MOVE 3,@1
01500		ASH 3,-=25
01600		ADDI 3,=1024
01700		IMULI 3,=10000
01800		MOVE 5,3
01900		MOVE 3,@1
02000		LSH 3,13
02100		ASH 3,-=25
02200		ADDI 3,=1024
02300		ADD 5,3
02400		AOJ 6,
02500		MOVE 3,@1
02600		ANDI 3,177
02700		CAIN 3,106
02800		JRST INVIS
02900		MOVEM 5,@6
03000		JRST ADON
03100	INVIS:	MOVNM 5,@6
03200		JRST ADON
03300	STIK:	JRA 16,2(16)
03400		END